﻿'Description:问题快反类
'Copyright (c) : 通力凯顿（北京）系统集成有限公司
'Writer:Yuxj
'create Date:2020-07-30
'Rewriter:
'Rewrite Date:
Imports BusinessRule.DTO
Imports BusinessRule.IBusiness
Imports DatabaseAccess.DBUtility
Imports Camstar.WebClient.WebServicesProxy.InSiteWebServices
Imports System.Data
Imports System.Text
Imports External.APICalling
Imports System.Data.OracleClient
Imports BusinessRule.Common
Imports DatabaseAccess.IDAL
Imports DatabaseAccess.DALFactory
Public Class uLMSQualityHistoryRecordBusiness
    Implements uLMSQualityHistoryRecordIBusiness
    Private dal As IOracleDAL = uMESDalContext.instance.GetDalObject()

    Function GetQualityHistoryRecord(ByVal para As Dictionary(Of String, String)) As DataTable Implements uLMSQualityHistoryRecordIBusiness.GetQualityHistoryRecord
        Dim strsql As String =
            <string>
                select qh.productname,qh.content,qh.engineno,qh.sequence,qh.createtime,e.fullname,qh.isadd
                from QUALITYhistoryRECORD qh               
                LEFT JOIN employee e ON e.employeeid=qh.createemployeeid
                where isuse=0
            </string>
        'Modify Duht 20201028 根据发动机号删选质量问题
        If para.ContainsKey("productname") Then
            strsql += String.Format(" and  qh.engineno='{0}'", para("productname"))
        End If

        Dim dt As DataTable = dal.StandardGetDataTable(strsql)
        Return dt
    End Function
        

End Class
